home *** CD-ROM | disk | FTP | other *** search
;C-Script v5.0 ⌐ 1998 C-Team. All rights reserved. ;Configure at your own risk ;Identifiers ;========== ;Windows ;========== aleft %left = $1 - $len($strip($2-)) | return $2- $+ $str(%left,$chr(160)) | unset %left acenter %center = $1 - $len($strip($2-)) | %center1 = %center / 2 | %center2 = %center - %center1 | return $str(%center1,$chr(160)) $+ $2- | unset %center %center1 %center2 aright %right = $1 - $len($strip($2-)) | return $str(%right,$chr(160)) $+ $2- | unset %right center { if ($syswin($3,x) == $null) || ($syswin($3,y) == $null) || ($3 == $null) { goto top } else return $syswin($3,x) $syswin($3,y) :top if (%x == $null || %y == $null || %x.max == $null || %y.max == $null) { window @t 999 999 100 100 | set %x $window(@t).x | set %x.max $calc(%x + 100) | set %x [ $calc(%x / 2 + 50) ] | set %y $window(@t).y | set %y.max $calc(%y + 100) | set %y [ $calc(%y / 2 + 50) ] | window -c @t } else { return $int($calc(%x - $1 / 2)) $int($calc(%y - $2 / 2)) } } wh { if ($syswin($3,w) == $null) || ($syswin($3,h) == $null) || ($3 == $null) { goto top } else return $syswin($3,w) $syswin($3,h) :top return $int($1) $int($2) } xy { if ($syswin($3,x) == $null) || ($syswin($3,y) == $null) || ($3 == $null) { goto top } else return $syswin($3,x) $syswin($3,y) :top if (%x == $null || %y == $null || %x.max == $null || %y.max == $null) { window @t 999 999 100 100 | set %x $window(@t).x | set %x.max $calc(%x + 100) | set %x [ $calc(%x / 2 + 50) ] | set %y $window(@t).y | set %y.max $calc(%y + 100) | set %y [ $calc(%y / 2 + 50) ] | window -c @t } else { return $int($1) $int($2) } } xy.max { if ($syswin($3,x) == $null) || ($syswin($3,y) == $null) || ($3 == $null) { goto top } else return $syswin($3,x) $syswin($3,y) :top if (%x == $null || %y == $null || %x.max == $null || %y.max == $null) { window @t 999 999 100 100 | set %x $window(@t).x | set %x.max $calc(%x + 100) | set %x [ $calc(%x / 2 + 50) ] | set %y $window(@t).y | set %y.max $calc(%y + 100) | set %y [ $calc(%y / 2 + 50) ] | window -c @t } else { return $int($calc(%x.max - $1 / 2)) $int($calc(%y.max - $2 / 2)) } } syswin { return $readini sysfiles\win.ini windows $fx($remove($1-,$chr(32))) } ;========== ;Address/Server parsing ;========== gethost { set %temp $1 if ($chr(64) !isin %temp) { goto done } if ($chr(64) isin %temp) { set %temp $gettok(%temp,2,64) } if ($chr(42) isin %temp) { set %temp $remove(%temp,$chr(42)) } if ($chr(33) isin %temp) { set %temp $remove(%temp,$chr(33)) } if ($chr(35) isin %temp) { set %temp $remove(%temp,$chr(35)) } :done return %temp } findhost return $remove($address($1,1),$left($address($1,1),$pos($address($1,1),$chr(64)))) getend { set %temp $count($server,$chr(46)) inc %temp return $gettok($server,%temp,46) } getdom { set %temp $count($1,$chr(46)) if (%temp > 1) { dec %temp } set %temp %temp $+ - return $gettok($1,%temp,46) } ;========== ;Spell Check ;========== ispell { set %spellphrase $1- %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,adn,and),C-Scropt,C-Script),C-Scirpt,C-Script),c-script,C-Script),hlep,help),mirc,mIRC),accesories,accessories),compaired,compared),xtian,Christian),accomodate,accommodate),acheive,achieve),claer,clear),god,God),acn,can),acommodate,accommodate),acomodate,accommodate),agian,again),ahppen,happen),ahve,have),allready,already) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,hwlp,help),(r),«),almsot,almost),alreayd,already),alwasy,always),amke,make),anbd,and),applyed,applied),appeares,appears),aren;t,aren't),arguement,argument),arn't,aren't),artical,article),audeince,audience),audiance,audience),awya,away),bakc,back),balence,balance),baout,about),bcak,back) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,beacuse,because),becasue,because),becomeing,becoming),becuase,because),becuse,because),befoer,before),begining,beginning),beleive,believe),boxs,boxes),bve,be),cafe,cafΘ),can;t,can't),changeing,changing),charachter,character),charecter,character),charector,character),cheif,chief),circut,circuit),claerly,clearly),cliche,clichΘ) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,cna,can),colection,collection),comany,company),comapny,company),comittee,committee),commitee,committee),committy,committee),compair,compare),compleated,completed),completly,completely),comunicate,communicate),comunity,community),conected,connected),cotten,cotton),coudl,could),coudln't,couldn't),couldn;t,couldn't),cpoy,copy),cxan,can) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,danceing,dancing),definately,definitely),detente,dΘtente),developement,development),didn;t,didn't),differant,different),differnt,different),diffrent,different),disatisfied,dissatisfied),discoverd,discovered),doens't,doesn't),doese,does),doesn;t,doesn't),develope,develop),doign,doing),dollers,dollars),don;t,don't),donig,doing),do'nt,don't),driveing,driving) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,drnik,drink),ehr,her),embarass,embarrass),equippment,equipment),esle,else),excitment,excitement),eyt,yet),familar,familiar),feild,field),fianlly,finally),fidn,find),firts,first),follwo,follow),foriegn,foreign),foudn,found),foward,forward),freind,friend),frmo,from),fwe,few),gerat,great) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,geting,getting),giveing,giving),goign,going),gonig,going),govenment,government),gruop,group),grwo,grow),hadn;t,hadn't),haev,have),happend,happened),hasn;t,hasn't),hasnt,hasn't),haveing,having),haven;t,haven't),hda,had),he;ll,he'll),helpfull,helpful),herat,heart),here;s,here's),hge,he) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,(c),⌐),hismelf,himself),hsa,has),hsi,his),hte,the),htere,there),htey,they),hting,thing),htink,think),htis,this),hvae,have),hvaing,having),i;ll,I'll),idae,idea),ihs,his),immediatly,immediately),indecate,indicate),insted,instead),isn;t,isn't),it;ll,it'll) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,iwll,will),iwth,with),jsut,just),knwo,know),konw,know),let;s,let's),levle,level),libary,library),librarry,library),librery,library),liek,like),liev,live),likly,likely),littel,little),liuke,like),liveing,living),loev,love),lonly,lonely),makeing,making),mkae,make) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,mkaing,making),moast,most),moeny,money),mroe,more),mysefl,myself),naive,na∩ve),neccessary,necessary),necesary,necessary),nkow,know),nwe,new),nwo,now),ocasion,occasion),occassion,occasion),occurence,occurrence),occurrance,occurrence),ocur,occur),oging,going),ohter,other),omre,more),onyl,only) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,opperation,operation),orginized,organized),otehr,other),otu,out),owrk,work),peopel,people),perhasp,perhaps),perhpas,perhaps),pleasent,pleasant),poeple,people),porblem,problem),probelm,problem),protege,protΘgΘ),protoge,protΘgΘ),puting,putting),pwoer,power),quater,quarter),questoin,question),reccomend,recommend),reccommend,recommend) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,receieve,receive),recieve,receive),recieved,received),recomend,recommend),reconize,recognize),recrod,record),religous,religious),rwite,write),rythm,rhythm),seh,she),selectoin,selection),sentance,sentence),seperate,separate),she;ll,she'll),shineing,shining),shiped,shipped),shoudl,should),shoudln't,shouldn't),shouldn;t,shouldn't),shouldnt,shouldn't) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,similiar,similar),sincerly,sincerely),smae,same),smoe,some),soem,some),sohw,show),soudn,sound),soudns,sounds),statment,statement),stnad,stand),stopry,story),stoyr,story),stpo,stop),strentgh,strength),stroy,story),struggel,struggle),strugle,struggle),sucess,success),swiming,swimming),tahn,than) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,taht,that),talekd,talked),tath,that),teh,the),tehy,they),tghe,the),thansk,thanks),themselfs,themselves),theri,their),they;ll,they'll),they;re,they're),they;ve,they've),theyll,they'll),theyve,they've),thgat,that),thge,the),thier,their),thme,them),thna,than),thne,then) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,thnig,thing),thnigs,things),thsi,this),thsoe,those),thta,that),tihs,this),timne,time),tje,the),tjhe,the),tkae,take),tonihgt,tonight),tlak,talk),todya,today),tongiht,tonight),towrad,toward),truee,true),truely,truly),tyhat,that),tyhe,the),useing,using) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,veyr,very),vrey,very),waht,what),watn,want),we;d,we'd),we;ll,we'll),we;re,we're),we;ve,we've),wehn,when),whcih,which),where;s,whereÆs),whihc,which),who;s,who's),who;ve,who've),whta,what),wief,wife),wierd,weird),wihch,which),wiht,with) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,windoes,windows),withe,with),wiull,will),wnat,want),wnated,wanted),wnats,wants),woh,who),wohle,whole),wokr,work),wo'nt,woudl),woudln't,wouldn't),wouldn;t,wouldn't),wriet,write),wrod,word),wroking,working),wtih,with),wya,way),yera,year),yeras,years),you;re,youÆre) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,ytou,you),yuo,you),yuor,your),(tm),Ö),1/2,╜),1/4,╝),mgs,msg),wsa,was),jsut,just),birthdya,birthday),wieght,weight),botheirng,bothering),commonewalth,commonwealth),housheold,household),louts,lotus),waytt,Wyatt),theirn,therin),nithe,niteh) %spellphrase = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%spellphrase,gthe,ghte),belivee,believe),birthady,birthday),mandess,madness),realy,really),selebarty,selebarty),destory,destroy),hand't,hadn't),computting,computing),nickanem,nickname),mcanlly,McNally),gthi,ghti),greation,geration),developr,developer),gatheirng,gathering),horsheair,horsehair),lagg,lag),lagin,laggin),laged,lagged),lagy,laggy) return %spellphrase } ;========== ;Mathematics ;========== rnd if ($int($1) == 0) { return $gettok($1,2,46) } | else return $1 perc if ($2 == 0 || $1 == 0 || $1 == $null || $2 == $null) { return 0 } | else { return $round($calc( [ $1 * 100 ] / $2 ), 2) } pls { if ($2 == $null) { return $$1 | goto end } %temp.m = $calc($$1 + $2) return %temp.m | unset %temp.m :end } div { if ($2 == $null) { return $$1 | goto end } %temp.m = $calc($$1 / $2) return %temp.m | unset %temp.m :end } sub { if ($2 == $null) { return $$1 | goto end } %temp.m = $calc($$1 - $2) return %temp.m | unset %temp.m :end } mpy { if ($2 == $null) { return $$1 | goto end } %temp.m = $calc($$1 * $2) return %temp.m | unset %temp.m :end } kbyte { if ($$1 == unknown) { return Unknown } else return $round($calc($1 * .001),0) k } ;========== ;Talkers/Colors ;========== ;iRainbow thanks to the #mIRC Info Center iRainbow { %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4 %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16 %fnl = "" %txt = $replace($1-,$chr(32),$chr(1)) %clr = 1 %i = 1 :start if ($mid(%txt,%i,1) != $null) { if ($token(%clr,42,%clrlist) == $null) { %clr = 1 } | %fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%txt,%i,1) | inc %clr 1 | inc %i 1 | goto start } return $replace(%fnl,$chr(1),$chr(32)) } ;Below color/text identifiers thanks to To|\|iC's color addons ifct { %c = $1- set %c $replace(%c,a,4a) | set %c $replace(%c,b,3B) | set %c $replace(%c,c,6C) | set %c $replace(%c,d,7D) | set %c $replace(%c,e,4e) | set %c $replace(%c,f,12F) | set %c $replace(%c,g,13G) | set %c $replace(%c,h,6H) | set %c $replace(%c,i, 4i) | set %c $replace(%c,j,J) | set %c $replace(%c,k, 3K) | set %c $replace(%c,l,L) | set %c $replace(%c,m,4M) | set %c $replace(%c,n, 6N) | set %c $replace(%c,o,4o) | set %c $replace(%c,p,12P) | set %c $replace(%c,q, Q) | set %c $replace(%c,r,13R) | set %c $replace(%c,s, 7S) set %c $replace(%c,t,T) | set %c $replace(%c,u,4u) | set %c $replace(%c,v, V) | set %c $replace(%c,w,12 W) | set %c $replace(%c,x,7X) | set %c $replace(%c,y, Y) | set %c $replace(%c,z,6z) | set %c $replace(%c,?,12┐15?) | return %c } iBg { %num = 1 | %msg = | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add } | if %color == y { %num2 = 9 | %num3 = 1 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ | inc %num | goto start } | return %msg $+ } iBrg { %num = 1 | %msg = | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 9 | %color = y | goto add } | if %color == y { %num2 = 4 | %num3 = 1 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ | inc %num | goto start } | return %msg $+ } iBw { %num = 1 | %msg = | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 16 | %color = y | goto add } | if %color == y { %num2 = 16 | %num3 = 1 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ | inc %num | goto start } | return %msg $+ } iRw { %num = 1 | %msg = | %color = p | :start | if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add } | if %color == y { %num2 = 4 | %num3 = 0 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ | inc %num | goto start } | return %msg $+ } iRg { %num = 1 | %msg = | %color = p | :start | if %color == p { %num2 = 9 | %num3 = 4 | %color = y | goto add } | if %color == y { %num2 = 4 | %num3 = 9 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,*1) $+ | inc %num | goto start } | return %msg $+ } iReverse { set %sections $token(0,32,$1-) | :revstart | if (%sections == 0) goto revend | set %reverseme $token(%sections,32,$1-) | set %length $len(%reverseme) | set %backtext $mid(%reverseme,%length,1) | dec %length 1 | :backstart | if (%length == 0) goto backend | set %tempback $mid(%length,1,%reverseme) | set %backtext %backtext $+ %tempback | dec %length 1 | goto backstart | :backend | set %reversed_text %backtext | set %temp %reversed_text | set %final %final %temp | dec %sections 1 | goto revstart | :revend | set %endreverse %final | return %final } iBrain { set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1 :loop set %o %o $+ $chr(3) $+ $token( %c , 38 , 04&07&08&09&11&13 ) $+ $mid(%p,1,%i) inc %p if ( $mid(%p,1,%i) != á) { inc %c } if ( %c > 6 ) { set %c 1 } if ( $mid(%p,1,%i) != $null ) { goto loop } set %tmp.ibrain %o unset %o %i %p %c return %tmp.ibrain } iBrick { %num = 1 | unset %msg | %msg = | %color = p | :start | if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add } | if %color == y { %num2 = 4 | %num3 = 1 | %color = p | goto add } | :add | if ($mid($1-,%num,1) != $null && $mid($1-,%num,1) !isnum) { %msg = %msg $+ $+ %num2 $+ , $+ %num3 $+ $mid(%num, 1,$1-) $+ | inc %num | goto start } | return %msg $+ | unset %num | unset %num2 | unset %num3 | unset %msg | unset %color } icode { return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,a,τ),i,⌡),e,╓),o,≈),u,±),b,æ),c,┘),d,δ),f,½),n,╢),r,⌐),s,╞),t,╪),x,║),y,ñ),?,ó),k,╝),l,¬),v,µ),g,▓),z,╗),w,╖),q,╜),h,▒),j,╡),m,»),p,¼),1,■),2,²),3,▐),4,φ),5,ç),6,Ö),7,£),8,ë),9,è) } idecode { return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,τ,a),⌡,i),╓,e),≈,o),±,u),æ,b),┘,c),δ,d),½,f),╢,n),⌐,r),╞,s),╪,t),║,x),ñ,y),ó,?),╝,k),¬,l),µ,v),▓,g),╗,z),╖,w),╜,q),▒,h),╡,j),»,m),¼,p), ,0),■,1),²,2),▐,3),φ,4),ç,5),Ö,6),£,7),ë,8),è,9) } iascii { %tmp.saythis = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($1-,a,Γ),i,ε),e,Ω),o,⌠),u,√),b,▀),c,⌐),d,╨),f,â),h,}{),k,/<),l,ú),n,±),p,■),r,«),s,Ü),t,å),v,\/),x,╫),y, ),0,╪),?,┐),!,í),1/4,╝),1/2,╜),3/4,╛) return %tmp.saythis } ;========== ;Date and Time ;========== atime { if ($1 != $null) { set %time1 $1 } else set %time1 $time set %hour $token(1,58,%time1) | set %mins $token(2,58,%time1) | set %secs $token(3,58,%time1) | set %pm am if (%hour == 0) { %hour = 12 } elseif (%hour > 12) { %hour = %hour - 12 | %pm = pm } elseif (%hour == 12) %pm = pm %time = %hour $+ : $+ %mins $+ : $+ %secs $+ %pm unset %hour %mins %secs %pm return %time } aday { set %tmp.aday $day %tmp.aday = $replace($replace($replace($replace($replace($replace($replace(%tmp.aday,Sunday,Sun),Monday,Mon),Tuesday,Tue),Wednesday,Wed),Thursday,Thu),Friday,Fri),Saturday,Sat) return %tmp.aday } stime { set %tmp.stime $1- %tmp.stime = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(%tmp.stime,secs,s),sec,s),mins,m),min,m),hrs,h),hr,h),days,d),day,d),wks,w),wk,w) return %tmp.stime } sadate { set %temp.1 $gettok($adate,1,47) set %temp.2 $gettok($adate,2,47) if ($left(%temp.1,1) == 0 && $count(%temp.1,0) == 1) { set %temp.1 $remove(%temp.1,0) } if ($left(%temp.2,1) == 0 && $count(%temp.2,0) == 1) { set %temp.2 $remove(%temp.2,0) } return %temp.1 $+ $chr(47) $+ %temp.2 } satime { return $gettok($atime,1,58) $+ $chr(58) $+ $gettok($atime,2,58) $+ $right($atime,2) } ims { if ($1 == 0) return 0.0 if ($len($1) < 4) { set %firstpart 0 | set %secondpart $1 } else { set %firstpart $mid($1,1,$sub($len($1),3)) | set %secondpart $right($1,3) } if ($right(%secondpart,2) == 00 && $count(%secondpart,00) == 1) { %secondpart = $remove(%secondpart,$right(%secondpart,2)) } if ($right(%secondpart,1) == 0 && $count(%secondpart,0) == 1) { %secondpart = $remove(%secondpart,$right(%secondpart,1)) } if (%secondpart != $null) { set %msfinal %firstpart $+ . $+ %secondpart } else { set %msfinal %firstpart } unset %firstpart %secondpart %tempvar %varlen return %msfinal } ;========== ;Nick Complete ;========== nct { if (%nctp == 2) { return $1 goto end } if (%nctp == 3) { return $1 $+ : goto end } if (%nctp == 4) { return $+ $1 $+ goto end } if (%nctp == 5) { return $+ $1 $+ : goto end } if (%nctp == 6) { return $+ $1 $+ goto end } if (%nctp == 7) { return $+ $1 $+ : goto end } if (%nctp == 8) { if ($count($1,$left($1,1)) == 1 && $count($1,$right($1,1)) == 1) { set %ncfrt $left($1,1) set %ncfrr $right($1,1) set %ncrrt $remove($remove($1,$left($1,1)),$right($1,1)) return $+ %ncfrt $+ $+ %ncrrt $+ $+ %ncfrr $+ goto end } else { return $+ $1 $+ } goto end } if (%nctp == 9) { if ($count($1,$left($1,1)) == 1 && $count($1,$right($1,1)) == 1) { set %ncfrt $left($1,1) set %ncfrr $right($1,1) set %ncrrt $remove($remove($1,$left($1,1)),$right($1,1)) return $+ %ncfrt $+ $+ %ncrrt $+ $+ %ncfrr $+ : } else { return $+ $1 $+ : } } if (%nctp == 10) { return $ifct($1) $+ : goto end } if (%nctp == 11) { return $iascii($1) $+ : goto end } if (%nctp == 12) { return $ibw($1) $+ : goto end } if (%nctp == 13) { return $irw($1) $+ : goto end } if (%nctp == 14) { return $ibg($1) $+ : goto end } if (%nctp == 15) { return $ibrg($1) $+ : goto end } if (%nctp == 16) { if ($count($1,$left($1,1)) == 1 && $count($1,$right($1,1)) == 1) { set %ncfrt $left($1,1) set %ncfrr $right($1,1) set %ncrrt $remove($remove($1,$left($1,1)),$right($1,1)) return 12 $+ %ncfrt $+ 4 $+ %ncrrt $+ 12 $+ %ncfrr $+ : } else { return 4 $+ $1 $+ : } } :end halt } nci { unset %ncn* set %ncv 0 set %ncc 1 set %nct $ial(*,0) :loop inc %ncv if (%ncv > %nct) { goto done } if ($1* iswm $ial(*,%ncv).nick && $ial(*,%ncv).nick != $me) { set %ncn $+ %ncc $ial(*,%ncv).nick | inc %ncc | goto loop } else { goto loop } :done if (%ncc == 2) { set %ncf %ncn1 | goto end } elseif (%ncc >= 2) { set %tmp.ncwin1 $active dec %ncc wincheck @NickáComplete -ls @NickáComplete $center(195,200,@NickáComplete) $wh(195,200,@NickáComplete) @NickáComplete Comic sans ms 12 aline @NickáComplete ááSelect a Nickname :loop2 if (%ncn [ $+ [ %ncc ] ] != $me) { aline @NickáComplete %ncn [ $+ [ %ncc ] ] } dec %ncc if (%ncc >= 1) { goto loop2 } else { halt } } else { return $1 } :end return %ncf } ;========== ;Miscellaneous ;========== ;Returns specified mIRC color clr return $colour($$1) ;Popups s1 if ($snick($active,0) < 2) { if ($1 == $null) { return } | else { return $1- } } | else { return } s2 if ($snick($active,0) > 1) { if ($1 == $null) { return } | else { return $1- } } | else { return } onoff if ($$1 == on) { return Off } | else return On ifop if ($me isop $active) { return $$1- } | else return ifnotify if (notify !isin $active) { return $$1- } | else return ifoper if (o isin $usermode) { return $$1- } | else return ifvote { if ($me isop $active) { if ($$1 == on) && ($group(#vote) == on) { return $$2- } if ($$1 == off) && ($group(#vote) == off) { return $$2- } } return } lvl { if (($level($$1) == 99) || ($level($1) == 98)) && ($$2 == off) && ($snick($active,1) != $me) { return $2 } if (($level($$1) != 99) && ($level($1) != 98)) && ($$2 == on) && ($snick($active,1) != $me) { return $2 } return } ifnreg if ($regcheck == $false) { return $$1- } | else return srv if ($server != $null) { return $$1- } | else return xdcced if ($group(#xdcc) == on) { return Enable } | else return Disable snds if ($$1 == wav) && ($inwave == $true) { return Stop Wav } | if ($1 == mid) && ($inmidi == $true) { return Stop Midi } | if ($1 == both) && ($inmidi == $true) && ($inwave == $true) { return Stop Both } ifawy if ($server != $null) { if ($$1 == 2) && ($away == $true) { return Back } | if ($1 == 1) && ($away == $false) { return Away } } ifcln if ($gettok($clone($address($snick($active,1),2),$active),2,32) != $null) && ($me isop $chan) { return $$1- } | else return clone { set %ccount 0 | unset %cnicks set %num $ialchan($$1,$$2,0) :next inc %ccount if (%ccount > %num) { unset %ccount %num | return %cnicks } set %cnicks %cnicks $ialchan($1,$2,%ccount).nick goto next } mact { if ($$1 !isin $gettok($chan($active).mode,1,32)) || ($gettok($chan($active).mode,1,32) == $null) { if ($1 == l) && ($2 == 2) { return +l $$?="Limit:" } if ($1 == k) && ($2 == 2) { return +k $$?="Key:" } return + $+ $1 } if ($$1 == k) { return -k $chan($active).key } return - $+ $1 } ovddv { if ($snick($active,0) < 2) { if ($$1 == 1) && ($snick($active,1) !isop $active) { return Op } if ($1 == 2) && ($snick($active,1) isop $active) { return Deop } if ($1 == 3) && ($snick($active,1) !isvo $active) { return Voice } if ($1 == 4) && ($snick($active,1) isvo $active) { return DeVoice } if ($1 == 5) { return $$3- } } if ($snick($active,0) > 1) { if ($$1 == 1) { return Op Selected } if ($1 == 2) { return Deop Selected } if ($1 == 3) { return Voice Selected } if ($1 == 4) { return DeVoice Selected } if ($1 == 5) { return $$2- } } } var if ($2- == $null) { return $$1 } | else return $2- y return Turn [ %pop. [ $+ [ $$1 ] ] ] z { set %tmp [ %pop. [ $+ [ $$1 ] ] ] if (%tmp == On) { return $true } else { return $false } } recnt { if ($group(#recent) == on) { return Recent } else { return } } motds { if ($1 == 1) { if (%motds == normal) { return ╫ Normal } | else { return á Normal } } if ($1 == 2) { if (%motds == window) { return ╫ In Window } | else { return á In Window } } if ($1 == 3) { if (%motds == changew) { return ╫ On Change (Win) } | else { return á On Change (Win) } } if ($1 == 4) { if (%motds == changes) { return ╫ On Change (Status) } | else { return á On Change (Status) } } if ($1 == 5) { if (%motds == hide) { return ╫ Off (Don't Show) } | else { return á Off (Don't Show) } } } ;Socket filter d { return $gettok(%sock.read,$1,32) } ;Version vers return å[C-Script v5.0]å By the C-Team next { if ($1 == 1) { unset %nncount | halt } inc %nncount | return %nncount } ;returns the value with [ and ] replaced fx return $replace($replace($replace($$1-,$chr(91),¿),$chr(93),╞),$chr(61),╟) ;restores the characters [ and ]. (i.e. good for storing nicks, channels, etc. in ;.ini files fx2 return $replace($replace($replace($$1-,¿,$chr(91)),╞,$chr(93)),╟,$chr(61)) ;Returns $true if the specified script is loaded. Else $false if it is not. scrl { set %dir $mircdir $+ $1 if ($script(%dir) == $null) { unset %dir | return $false } else { unset %dir | return $true } } ;Returns the path of the specified addons file adn { return $mircdir $+ [ addons\ $+ [ $1 ] ] } ;Color stripper stpr if (%stripper == On) return $strip($$1-) | else return $$1- ;Check to see if any matching addy's in a channel belong to an op clnck { set %ccount 0 | set %num $ialchan($1,$2,0) :next inc %ccount if (%ccount > %num) { unset %ccount %21st.num | return } if ($ialchan($1,$2,%ccount).nick isop $2) { unset %ccount %num | return 1 } goto next } rcnt2 { return $readini -n sysfiles\recent.ini $$1 [ n [ $+ [ $$2 ] ] ] } winfont return $readini -n mirc.ini fonts fstatus 
